unit F_URL1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, sBitBtn, sLabel, ExtCtrls, acPNG;

type
  TFormURL1 = class(TForm)
    sLabel1: TsLabel;
    im: TsBitBtn;
    Image: TImage;
    Image1: TImage;
    Image2: TImage;
    Button_Exit: TsBitBtn;
    Bevel1: TBevel;
    Label_JRE: TsLabel;
    sLabel2: TsLabel;
    sLabel3: TsLabel;
    procedure imClick(Sender: TObject);
    procedure Button_ExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormURL1: TFormURL1;

implementation

{$R *.dfm}

Uses ShellAPI;

procedure TFormURL1.Button_ExitClick(Sender: TObject);
begin
  Close;
end;

procedure TFormURL1.imClick(Sender: TObject);
begin
  ShellExecute(Handle,'open','http://www.oracle.com/technetwork/java/javase/downloads/index.html',nil,nil,SW_Normal);
end;

end.
